(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     93567,       2538]
NotebookOptionsPosition[     87654,       2442]
NotebookOutlinePosition[     88040,       2459]
CellTagsIndexPosition[     87997,       2456]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.8265336309981236`*^9, 3.826533673230311*^9}, 
   3.826533909837808*^9, {3.826534343056493*^9, 3.8265344399392366`*^9}, {
   3.8265345175320997`*^9, 3.826534567067391*^9}, {3.8265346393747764`*^9, 
   3.826534763076602*^9}, {3.8265347963305073`*^9, 3.8265349897428207`*^9}, {
   3.826535073363107*^9, 3.8265350995343018`*^9}, {3.826535176827162*^9, 
   3.826535182729402*^9}, {3.826535283202676*^9, 3.826535295185963*^9}, {
   3.827581785235441*^9, 3.827581790171796*^9}},
 CellLabel->
  "In[423]:=",ExpressionUUID->"92ed2f1f-f96f-4621-b354-885339e7b022"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}]], "Input",
 CellLabel->
  "In[424]:=",ExpressionUUID->"67bf5be3-1074-40f1-a750-dc09bdecd627"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tempfile16", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<Lorentzian.wdx\>\""}], "}"}],
     "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tempfile13", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<vertice.wdx\>\""}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tempfile14", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<Deficient.wdx\>\""}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tempfile17", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<vmax.wl\>\""}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tempfile18", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<Boundary.wdx\>\""}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Get", "[", "tempfile13", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Get", "[", "tempfile14", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Get", "[", "tempfile16", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Get", "[", "tempfile17", "]"}]}], "Input",
 CellChangeTimes->{{3.8265190106444335`*^9, 3.8265190435136147`*^9}, 
   3.826519096503748*^9, {3.8271302688314323`*^9, 3.8271302888136234`*^9}, {
   3.827561631478764*^9, 3.827561674673962*^9}, {3.8275817969920163`*^9, 
   3.827581811329385*^9}, {3.827582419207662*^9, 3.8275824196851344`*^9}},
 CellLabel->
  "In[425]:=",ExpressionUUID->"d586989c-c234-414f-b5dd-ff5ed5aa637a"],

Cell[CellGroupData[{

Cell[BoxData["ccr"], "Input",
 CellChangeTimes->{{3.8271304724512825`*^9, 3.8271304728401117`*^9}},
 CellLabel->
  "In[434]:=",ExpressionUUID->"95d4cb73-c882-40a9-b107-eeda4f9932a1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "8.781520334149318`", ",", "28.795811804752404`", ",", 
   "12.914052822249799`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.8271304736442804`*^9, 3.827289958384492*^9, 3.827404722984234*^9, 
   3.827409659453679*^9, 3.8274096967174625`*^9, 3.827438148481819*^9, 
   3.827438213622798*^9, 3.82748960930842*^9, 3.8274905262108383`*^9, 
   3.8274909270295897`*^9, 3.827559950905205*^9, 3.8275606130661154`*^9, 
   3.8275616907109203`*^9, {3.8275617887278795`*^9, 3.8275618012185836`*^9}, 
   3.8275626016861925`*^9, 3.8275784458322477`*^9, 3.827582220712968*^9, {
   3.8275825122355366`*^9, 3.8275825238804636`*^9}, 3.8275827497813096`*^9, 
   3.8275831376719007`*^9, 3.82758598520218*^9, 3.8275862761702037`*^9, 
   3.8277078910140424`*^9, 3.8277079630497684`*^9, 3.827725307948222*^9, 
   3.827726316094861*^9, 3.8277512160138855`*^9, 3.827751931654441*^9, 
   3.827756251777918*^9, 3.8278318449910483`*^9, 3.827832182235096*^9, 
   3.8399323136708293`*^9},
 CellLabel->
  "Out[434]=",ExpressionUUID->"cf817f83-965e-459c-b6e7-481eb79028cd"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"NNTable", "[", 
   RowBox[{"vid_", ",", "Sid_", ",", "VR_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"NN", ",", 
      RowBox[{"ge", "=", 
       RowBox[{"DiagonalMatrix", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1"}], "}"}], 
        "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"NN", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"FDNormal", "[", 
           RowBox[{"vid", ",", 
            RowBox[{"VR", "[", 
             RowBox[{"[", "x", "]"}], "]"}], ",", 
            RowBox[{"Sid", "[", 
             RowBox[{"[", "x", "]"}], "]"}], ",", "#"}], "]"}], "&"}], ",", 
         RowBox[{"Sid", "/.", 
          RowBox[{
           RowBox[{"Sid", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "\[Rule]", "Nothing"}]}]}], "]"}],
        ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", 
         RowBox[{"Length", "[", "Sid", "]"}]}], "}"}]}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"OrientationSelect", "[", "VR_", "]"}], ":=", 
  RowBox[{"Block", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"kk", ",", "kp"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"kk", "=", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"NNTable", "[", 
          RowBox[{"vid", ",", "Sid", ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "&"}], ",", "VR"}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"kp", "=", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"MemberQ", "[", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"#", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}], "]"}], "&&", 
          "\[IndentingNewLine]", 
          RowBox[{"MemberQ", "[", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"#", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "2"}], "]"}], "]"}]}]}], "]"}], "&&", 
          "\[IndentingNewLine]", 
          RowBox[{"(", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", 
                RowBox[{"3", ",", "1", ",", "1"}], "]"}], "]"}], "*", 
              RowBox[{"#", "[", 
               RowBox[{"[", 
                RowBox[{"2", ",", "2", ",", "1"}], "]"}], "]"}]}], "<", "0"}],
             "||", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", 
                RowBox[{"3", ",", "2", ",", "1"}], "]"}], "]"}], "*", 
              RowBox[{"#", "[", 
               RowBox[{"[", 
                RowBox[{"2", ",", "2", ",", "1"}], "]"}], "]"}]}], "<", 
             "0"}]}], "\[IndentingNewLine]", ")"}]}], "&"}], ",", "kk"}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"VR", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "1"}], "]"}], "]"}], "&&", 
            RowBox[{"kp", "[", 
             RowBox[{"[", "x", "]"}], "]"}]}], ",", 
           RowBox[{"VR", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "1", ",", 
           RowBox[{"Length", "[", "VR", "]"}]}], "}"}]}], "]"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "True"}], "&"}]}], 
      "]"}]}]}], "\[IndentingNewLine]", "]"}]}]}], "Input",
 CellChangeTimes->{{3.827404719804659*^9, 3.8274047203152375`*^9}},
 CellLabel->
  "In[435]:=",ExpressionUUID->"b18e76af-e999-4515-ab9d-35956fd31a18"],

Cell[BoxData[
 RowBox[{
  RowBox[{"test", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
  RowBox[{"Total", "@", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"EFace3D", "[", 
       RowBox[{"vid", ",", "x", ",", "y", ",", "#", ",", 
        RowBox[{"asd", "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}], "&"}], ",", 
     RowBox[{"vid", "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"x", "\[Rule]", "Nothing"}], ",", 
        RowBox[{"y", "\[Rule]", "Nothing"}]}], "}"}]}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8271125343263855`*^9, 3.827112568502406*^9}, {
   3.8271141331280885`*^9, 3.8271141416097097`*^9}, {3.827114439662321*^9, 
   3.8271144410035286`*^9}, 3.8271160538088484`*^9, 3.8271168971261234`*^9, {
   3.827116956279866*^9, 3.8271170425094604`*^9}, {3.8271170924679475`*^9, 
   3.827117098261986*^9}, {3.827118286460493*^9, 3.827118300530823*^9}, {
   3.8271193748999405`*^9, 3.827119384902966*^9}, {3.82712863749699*^9, 
   3.8271286865727715`*^9}},
 CellLabel->
  "In[437]:=",ExpressionUUID->"90e7aa15-f479-4f3a-b888-01db531fdb4c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n3", "[", 
   RowBox[{"y_", ",", "vid_", ",", "vr_", ",", "s_", ",", "t_", ",", "f_"}], 
   "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"ssq", ",", "gg", ",", 
      RowBox[{"ge", "=", 
       RowBox[{"DiagonalMatrix", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1"}], "}"}], 
        "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"ssq", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"Bivector", "[", 
         RowBox[{"vid", ",", "vr", ",", "s", ",", "t", ",", "f"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ".", "ge"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"gg", "=", 
      RowBox[{"Inverse", "[", 
       RowBox[{
        RowBox[{"BELorentz4D", "[", 
         RowBox[{"y", ",", 
          RowBox[{"FDNormal1", "[", 
           RowBox[{"vid", ",", "vr", ",", "s", ",", "t"}], "]"}]}], "]"}], 
        "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"gg", ".", "ssq", ".", 
        RowBox[{"Inverse", "[", "gg", "]"}]}], ")"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", 
        RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n3s", "[", 
   RowBox[{"y_", ",", "vid_", ",", "vr_", ",", "s_", ",", "t_", ",", "f_"}], 
   "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"ssq", ",", "gg", ",", 
      RowBox[{"ge", "=", 
       RowBox[{"DiagonalMatrix", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1"}], "}"}], 
        "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"ssq", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"Bivector", "[", 
         RowBox[{"vid", ",", "vr", ",", "s", ",", "t", ",", "f"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ".", "ge"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"gg", "=", 
      RowBox[{"Inverse", "[", 
       RowBox[{
        RowBox[{"BELorentz4D", "[", 
         RowBox[{"y", ",", 
          RowBox[{"FDNormal1", "[", 
           RowBox[{"vid", ",", "vr", ",", "s", ",", "t"}], "]"}]}], "]"}], 
        "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"(", 
      RowBox[{"gg", ".", "ssq", ".", 
       RowBox[{"Inverse", "[", "gg", "]"}]}], ")"}]}]}], 
   "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gs", "[", 
   RowBox[{"y_", ",", "vid_", ",", "VR_", ",", "s_", ",", "t_"}], "]"}], ":=", 
  RowBox[{"Inverse", "@", 
   RowBox[{"ConjugateTranspose", "@", 
    RowBox[{
     RowBox[{"BELorentz4D", "[", 
      RowBox[{"y", ",", 
       RowBox[{"FDNormal1", "[", 
        RowBox[{"vid", ",", "VR", ",", "s", ",", "t"}], "]"}]}], "]"}], "[", 
     RowBox[{"[", "8", "]"}], "]"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gp", "[", 
   RowBox[{"y_", ",", "vid_", ",", "VR_", ",", "s_", ",", "t_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"BELorentz4D", "[", 
    RowBox[{"y", ",", 
     RowBox[{"FDNormal1", "[", 
      RowBox[{"vid", ",", "VR", ",", "s", ",", "t"}], "]"}]}], "]"}], "[", 
   RowBox[{"[", "8", "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.827438309125641*^9, 3.827438447188401*^9}, {
  3.8274387951451154`*^9, 3.827438825082163*^9}, {3.827438873296484*^9, 
  3.827438890432959*^9}, {3.8274432322447824`*^9, 3.827443239353354*^9}, {
  3.8275603509612255`*^9, 3.8275604161095686`*^9}, {3.8275606933979216`*^9, 
  3.827560698071824*^9}, {3.827707912774032*^9, 3.827707939145013*^9}, {
  3.8277235400766068`*^9, 3.8277235474533653`*^9}, {3.8277508683097057`*^9, 
  3.8277509185974207`*^9}, {3.8277515869143276`*^9, 3.8277515874835215`*^9}},
 CellLabel->
  "In[438]:=",ExpressionUUID->"d28ddeb7-cade-405a-a1ca-e4a4756feeec"],

Cell[BoxData[
 RowBox[{
  RowBox[{"J", "[", "x_", "]"}], ":=", 
  RowBox[{"Conjugate", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"x", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], ",", 
     RowBox[{"x", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8277232418833055`*^9, 3.8277232779336615`*^9}},
 CellLabel->
  "In[442]:=",ExpressionUUID->"e769cd27-1f49-48cf-8b19-020563f8ca2d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"diffeep", "[", 
   RowBox[{"yt_", ",", "vid_", ",", "VR_", ",", "s_", ",", "x_", ",", "y_"}], 
   "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"a", "=", 
      RowBox[{
       RowBox[{"gs", "[", 
        RowBox[{"yt", ",", "vid", ",", "VR", ",", "s", ",", "x"}], "]"}], ".", 
       RowBox[{"(", 
        RowBox[{"sps", "@", 
         RowBox[{"n3", "[", 
          RowBox[{"yt", ",", "vid", ",", "VR", ",", "s", ",", "x", ",", "y"}],
           "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"b", "=", 
      RowBox[{
       RowBox[{"gs", "[", 
        RowBox[{"yt", ",", "vid", ",", "VR", ",", "s", ",", "y"}], "]"}], ".", 
       RowBox[{"(", 
        RowBox[{"sps", "@", 
         RowBox[{"n3", "[", 
          RowBox[{"yt", ",", "vid", ",", "VR", ",", "s", ",", "y", ",", "x"}],
           "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"c", "=", 
      RowBox[{"a", "/", "b"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Chop", "[", 
         RowBox[{
          RowBox[{"Abs", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", "c", ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}], "-", 
            RowBox[{
             RowBox[{"(", "c", ")"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", 
          RowBox[{"10", "^", 
           RowBox[{"-", "11"}]}]}], "]"}], "\[Equal]", "0"}], ",", 
       RowBox[{"Abs", "[", 
        RowBox[{"c", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
       RowBox[{"Arg", "[", 
        RowBox[{"c", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}]}], 
   "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"diffjep", "[", 
    RowBox[{"yt_", ",", "vid_", ",", "VR_", ",", "s_", ",", "x_", ",", "y_"}],
     "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"a", "=", 
       RowBox[{
        RowBox[{"gp", "[", 
         RowBox[{"yt", ",", "vid", ",", "VR", ",", "s", ",", "x"}], "]"}], 
        ".", 
        RowBox[{"J", "@", 
         RowBox[{"(", 
          RowBox[{"sps", "@", 
           RowBox[{"n3", "[", 
            RowBox[{
            "yt", ",", "vid", ",", "VR", ",", "s", ",", "x", ",", "y"}], 
            "]"}]}], ")"}]}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"b", "=", 
       RowBox[{
        RowBox[{"gp", "[", 
         RowBox[{"yt", ",", "vid", ",", "VR", ",", "s", ",", "y"}], "]"}], 
        ".", 
        RowBox[{"J", "@", 
         RowBox[{"(", 
          RowBox[{"sps", "@", 
           RowBox[{"n3", "[", 
            RowBox[{
            "yt", ",", "vid", ",", "VR", ",", "s", ",", "y", ",", "x"}], 
            "]"}]}], ")"}]}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"c", "=", 
       RowBox[{"a", "/", "b"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"Chop", "[", 
          RowBox[{
           RowBox[{"Abs", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"(", "c", ")"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "-", 
             RowBox[{
              RowBox[{"(", "c", ")"}], "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", 
           RowBox[{"10", "^", 
            RowBox[{"-", "11"}]}]}], "]"}], "\[Equal]", "0"}], ",", 
        RowBox[{"Abs", "[", 
         RowBox[{"c", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
        RowBox[{"-", 
         RowBox[{"Arg", "[", 
          RowBox[{"c", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.8274388483962545`*^9, 3.8274388522719536`*^9}, {
   3.827438903117008*^9, 3.827438970456406*^9}, {3.827439143468606*^9, 
   3.8274393398131647`*^9}, {3.8274909093983374`*^9, 
   3.8274909255373755`*^9}, {3.8274946647814517`*^9, 3.827494666198878*^9}, {
   3.827494708934731*^9, 3.8274947093127317`*^9}, {3.827494794989828*^9, 
   3.8274947954467287`*^9}, {3.827494882388728*^9, 3.8274949440545917`*^9}, {
   3.8274949964425597`*^9, 3.8274950236935406`*^9}, 3.827559718429902*^9, {
   3.8275604004561243`*^9, 3.8275604483231335`*^9}, {3.8275607078920527`*^9, 
   3.8275607096929646`*^9}, {3.82772322078106*^9, 3.8277232391754856`*^9}, {
   3.827724047153468*^9, 3.827724047983095*^9}, {3.8277240906365237`*^9, 
   3.827724099331194*^9}, 3.8277241427646723`*^9, {3.8277509283415766`*^9, 
   3.8277509765546985`*^9}},
 CellLabel->
  "In[443]:=",ExpressionUUID->"6c433b40-8a3d-4b2b-b991-7d7a20b3bc2a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"e", "[", "z_", "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"x", "\[Equal]", "y"}], ",", "Nothing", ",", 
      RowBox[{"ToExpression", "[", 
       RowBox[{"\"\<e\>\"", "<>", 
        RowBox[{"ToString", "[", 
         RowBox[{"Sid", "[", 
          RowBox[{"[", "z", "]"}], "]"}], "]"}], "<>", 
        RowBox[{"ToString", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"vid", "/.", 
            RowBox[{
             RowBox[{"Sid", "[", 
              RowBox[{"[", "z", "]"}], "]"}], "\[Rule]", "Nothing"}]}], ")"}],
           "[", 
          RowBox[{"[", "x", "]"}], "]"}], "]"}], "<>", 
        RowBox[{"ToString", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"vid", "/.", 
            RowBox[{
             RowBox[{"Sid", "[", 
              RowBox[{"[", "z", "]"}], "]"}], "\[Rule]", "Nothing"}]}], ")"}],
           "[", 
          RowBox[{"[", "y", "]"}], "]"}], "]"}]}], "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "1", ",", "5"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", "1", ",", "5"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e1", "[", "z_", "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"x", "\[Equal]", "y"}], ",", "Nothing", ",", 
      RowBox[{"ToExpression", "[", 
       RowBox[{"\"\<e\>\"", "<>", 
        RowBox[{"ToString", "[", 
         RowBox[{"Sid", "[", 
          RowBox[{"[", "z", "]"}], "]"}], "]"}], "<>", 
        RowBox[{"ToString", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"vid", "/.", 
            RowBox[{
             RowBox[{"Sid", "[", 
              RowBox[{"[", "z", "]"}], "]"}], "\[Rule]", "Nothing"}]}], ")"}],
           "[", 
          RowBox[{"[", "x", "]"}], "]"}], "]"}], "<>", 
        RowBox[{"ToString", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"vid", "/.", 
            RowBox[{
             RowBox[{"Sid", "[", 
              RowBox[{"[", "z", "]"}], "]"}], "\[Rule]", "Nothing"}]}], ")"}],
           "[", 
          RowBox[{"[", "y", "]"}], "]"}], "]"}]}], "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "1", ",", "5"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", "1", ",", "5"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e2", "[", "z_", "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"x", "\[Equal]", "y"}], ",", "Nothing", ",", 
      RowBox[{"ToExpression", "[", 
       RowBox[{"\"\<e\>\"", "<>", 
        RowBox[{"ToString", "[", 
         RowBox[{"Sid", "[", 
          RowBox[{"[", "z", "]"}], "]"}], "]"}], "<>", 
        RowBox[{"ToString", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"vid", "/.", 
            RowBox[{
             RowBox[{"Sid", "[", 
              RowBox[{"[", "z", "]"}], "]"}], "\[Rule]", "Nothing"}]}], ")"}],
           "[", 
          RowBox[{"[", "y", "]"}], "]"}], "]"}], "<>", 
        RowBox[{"ToString", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"vid", "/.", 
            RowBox[{
             RowBox[{"Sid", "[", 
              RowBox[{"[", "z", "]"}], "]"}], "\[Rule]", "Nothing"}]}], ")"}],
           "[", 
          RowBox[{"[", "x", "]"}], "]"}], "]"}]}], "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "1", ",", "5"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", "1", ",", "5"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"z", "[", "z_", "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"x", "\[Equal]", "y"}], ",", "Nothing", ",", 
      RowBox[{"ToExpression", "[", 
       RowBox[{"\"\<z\>\"", "<>", 
        RowBox[{"ToString", "[", 
         RowBox[{"Sid", "[", 
          RowBox[{"[", "z", "]"}], "]"}], "]"}], "<>", 
        RowBox[{"ToString", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"vid", "/.", 
            RowBox[{
             RowBox[{"Sid", "[", 
              RowBox[{"[", "z", "]"}], "]"}], "\[Rule]", "Nothing"}]}], ")"}],
           "[", 
          RowBox[{"[", "x", "]"}], "]"}], "]"}], "<>", 
        RowBox[{"ToString", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"vid", "/.", 
            RowBox[{
             RowBox[{"Sid", "[", 
              RowBox[{"[", "z", "]"}], "]"}], "\[Rule]", "Nothing"}]}], ")"}],
           "[", 
          RowBox[{"[", "y", "]"}], "]"}], "]"}]}], "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "1", ",", "5"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", "1", ",", "5"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cs", "[", 
   RowBox[{"yt_", ",", "vid_", ",", "VR_", ",", "z_"}], "]"}], ":=", 
  RowBox[{"Table", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"If", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"x", "==", "y"}], ",", "\[IndentingNewLine]", "Nothing", ",", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"x", ">", "y"}], ",", "\[IndentingNewLine]", "0", ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"diffeep", "[", 
          RowBox[{"yt", ",", "vid", ",", "VR", ",", 
           RowBox[{"Sid", "[", 
            RowBox[{"[", "z", "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"vid", "/.", 
              RowBox[{
               RowBox[{"Sid", "[", 
                RowBox[{"[", "z", "]"}], "]"}], "\[Rule]", "Nothing"}]}], 
             ")"}], "[", 
            RowBox[{"[", "x", "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"vid", "/.", 
              RowBox[{
               RowBox[{"Sid", "[", 
                RowBox[{"[", "z", "]"}], "]"}], "\[Rule]", "Nothing"}]}], 
             ")"}], "[", 
            RowBox[{"[", "y", "]"}], "]"}]}], "]"}], "[", 
         RowBox[{"[", "3", "]"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"x", ",", "1", ",", "5"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", "1", ",", "5"}], "}"}]}], "\[IndentingNewLine]", 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"csj", "[", 
   RowBox[{"yt_", ",", "vid_", ",", "VR_", ",", "z_"}], "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"x", "==", "y"}], ",", "Nothing", ",", 
      RowBox[{
       RowBox[{"diffjep", "[", 
        RowBox[{"yt", ",", "vid", ",", "VR", ",", 
         RowBox[{"Sid", "[", 
          RowBox[{"[", "z", "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"vid", "/.", 
            RowBox[{
             RowBox[{"Sid", "[", 
              RowBox[{"[", "z", "]"}], "]"}], "\[Rule]", "Nothing"}]}], ")"}],
           "[", 
          RowBox[{"[", "x", "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"vid", "/.", 
            RowBox[{
             RowBox[{"Sid", "[", 
              RowBox[{"[", "z", "]"}], "]"}], "\[Rule]", "Nothing"}]}], ")"}],
           "[", 
          RowBox[{"[", "y", "]"}], "]"}]}], "]"}], "[", 
       RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "1", ",", "5"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", "1", ",", "5"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cp", "[", 
   RowBox[{"yt_", ",", "vid_", ",", "VR_", ",", "z_"}], "]"}], ":=", 
  RowBox[{"Table", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"If", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"x", "==", "y"}], ",", "\[IndentingNewLine]", "Nothing", ",", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"x", ">", "7"}], ",", "\[IndentingNewLine]", "1", ",", 
        "\[IndentingNewLine]", 
        RowBox[{"1", "/", 
         RowBox[{
          RowBox[{"diffeep", "[", 
           RowBox[{"yt", ",", "vid", ",", "VR", ",", 
            RowBox[{"Sid", "[", 
             RowBox[{"[", "z", "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"vid", "/.", 
               RowBox[{
                RowBox[{"Sid", "[", 
                 RowBox[{"[", "z", "]"}], "]"}], "\[Rule]", "Nothing"}]}], 
              ")"}], "[", 
             RowBox[{"[", "x", "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"vid", "/.", 
               RowBox[{
                RowBox[{"Sid", "[", 
                 RowBox[{"[", "z", "]"}], "]"}], "\[Rule]", "Nothing"}]}], 
              ")"}], "[", 
             RowBox[{"[", "y", "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", "2", "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"x", ",", "1", ",", "5"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", "1", ",", "5"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cpj", "[", 
   RowBox[{"yt_", ",", "vid_", ",", "VR_", ",", "z_"}], "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"x", "==", "y"}], ",", "Nothing", ",", 
      RowBox[{"1", "/", 
       RowBox[{
        RowBox[{"diffjep", "[", 
         RowBox[{"yt", ",", "vid", ",", "VR", ",", 
          RowBox[{"Sid", "[", 
           RowBox[{"[", "z", "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"vid", "/.", 
             RowBox[{
              RowBox[{"Sid", "[", 
               RowBox[{"[", "z", "]"}], "]"}], "\[Rule]", "Nothing"}]}], 
            ")"}], "[", 
           RowBox[{"[", "x", "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"vid", "/.", 
             RowBox[{
              RowBox[{"Sid", "[", 
               RowBox[{"[", "z", "]"}], "]"}], "\[Rule]", "Nothing"}]}], 
            ")"}], "[", 
           RowBox[{"[", "y", "]"}], "]"}]}], "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "1", ",", "5"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", "1", ",", "5"}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.827439516125701*^9, 3.827439517412447*^9}, {
  3.82743962329436*^9, 3.8274396941015*^9}, {3.8274397577213964`*^9, 
  3.827439876240387*^9}, {3.827439951313706*^9, 3.827439961500285*^9}, {
  3.827439993461636*^9, 3.827440015971431*^9}, {3.8274400741031103`*^9, 
  3.8274401286807313`*^9}, {3.827440398681162*^9, 3.827440402849359*^9}, {
  3.8274407359824677`*^9, 3.8274407414173813`*^9}, {3.8275604607627373`*^9, 
  3.8275604610940933`*^9}, {3.8275608210446777`*^9, 3.827560848099306*^9}, {
  3.82772178224716*^9, 3.827721805481037*^9}, {3.827722173613514*^9, 
  3.827722181631587*^9}, {3.8277230924692993`*^9, 3.8277231100004473`*^9}, {
  3.827724156651787*^9, 3.8277241819172664`*^9}, {3.8277250769684896`*^9, 
  3.827725089999211*^9}, {3.8277251310242915`*^9, 3.827725162843505*^9}, {
  3.82772520722197*^9, 3.827725292776533*^9}, {3.827750988230689*^9, 
  3.8277510402418137`*^9}},
 CellLabel->
  "In[445]:=",ExpressionUUID->"95af3cc9-69b2-4a9a-a451-b254ddc7eee9"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"testparallel", "[", 
    RowBox[{
    "yt_", ",", "vid_", ",", "VR_", ",", "s_", ",", "x_", ",", "y_", ",", 
     "ra_", ",", "rb_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "e1", ",", "e2", ",", "z1", ",", "z2"}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"a", "=", 
       RowBox[{
        RowBox[{"gs", "[", 
         RowBox[{"yt", ",", "vid", ",", "VR", ",", "s", ",", "x"}], "]"}], 
        ".", 
        RowBox[{"(", 
         RowBox[{"sps", "@", 
          RowBox[{"n3", "[", 
           RowBox[{
           "yt", ",", "vid", ",", "VR", ",", "s", ",", "x", ",", "y"}], 
           "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"b", "=", 
       RowBox[{
        RowBox[{"gs", "[", 
         RowBox[{"yt", ",", "vid", ",", "VR", ",", "s", ",", "y"}], "]"}], 
        ".", 
        RowBox[{"(", 
         RowBox[{"sps", "@", 
          RowBox[{"n3", "[", 
           RowBox[{
           "yt", ",", "vid", ",", "VR", ",", "s", ",", "y", ",", "x"}], 
           "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"e1", "=", 
       RowBox[{"ToExpression", "[", 
        RowBox[{"\"\<e\>\"", "<>", 
         RowBox[{"ToString", "[", "s", "]"}], "<>", 
         RowBox[{"ToString", "[", "x", "]"}], "<>", 
         RowBox[{"ToString", "[", "y", "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"e2", "=", 
       RowBox[{"ToExpression", "[", 
        RowBox[{"\"\<e\>\"", "<>", 
         RowBox[{"ToString", "[", "s", "]"}], "<>", 
         RowBox[{"ToString", "[", "y", "]"}], "<>", 
         RowBox[{"ToString", "[", "x", "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"z1", "=", 
       RowBox[{"ToExpression", "[", 
        RowBox[{"\"\<z\>\"", "<>", 
         RowBox[{"ToString", "[", "s", "]"}], "<>", 
         RowBox[{"ToString", "[", "x", "]"}], "<>", 
         RowBox[{"ToString", "[", "y", "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"z2", "=", 
       RowBox[{"ToExpression", "[", 
        RowBox[{"\"\<z\>\"", "<>", 
         RowBox[{"ToString", "[", "s", "]"}], "<>", 
         RowBox[{"ToString", "[", "y", "]"}], "<>", 
         RowBox[{"ToString", "[", "x", "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Chop", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Exp", "[", 
               RowBox[{"I", 
                RowBox[{"(", " ", 
                 RowBox[{"e1", "-", "e2"}], ")"}]}], "]"}], 
              RowBox[{"z2", "/", "z1"}], " ", "*", "b"}], "-", "a"}], "/.", 
            "ra"}], "/.", "rb"}], ")"}], ",", 
         RowBox[{"10", "^", 
          RowBox[{"-", "12"}]}]}], "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Exp", "[", 
              RowBox[{"I", 
               RowBox[{"(", " ", 
                RowBox[{"e1", "-", "e2"}], ")"}]}], "]"}], 
             RowBox[{"z2", "/", "z1"}], " ", "*", "b"}], "-", "a"}], "/.", 
           "ra"}], "/.", "rb"}], ")"}]}]}]}]}], "\[IndentingNewLine]", 
    "]"}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.82744181675115*^9, 3.8274418376408944`*^9}, {
  3.827442360914828*^9, 3.8274426680164475`*^9}, {3.827442800462792*^9, 
  3.827442810955453*^9}, {3.827560520826076*^9, 3.827560550124997*^9}, {
  3.8275609622815084`*^9, 3.827560963349559*^9}, {3.8275611341344657`*^9, 
  3.827561211824941*^9}, {3.8275612810309057`*^9, 3.827561292656856*^9}, {
  3.8277510473150043`*^9, 3.8277510636673565`*^9}},
 CellLabel->
  "In[453]:=",ExpressionUUID->"e127dc5a-9ffe-4c5d-8cae-e1e362fb0b53"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"zs", "[", 
    RowBox[{
    "yt_", ",", "vid_", ",", "VR_", ",", "s_", ",", "x_", ",", "y_", ",", 
     "ra_", ",", "rb_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "e1", ",", "e2", ",", "z1", ",", "z2", ",", "zz"}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"s", "\[Equal]", "x"}], "||", 
         RowBox[{"s", "\[Equal]", "y"}], "||", 
         RowBox[{"x", "==", "y"}]}], ",", 
        RowBox[{"Return", " ", "[", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"a", "=", 
       RowBox[{
        RowBox[{"gs", "[", 
         RowBox[{"yt", ",", "vid", ",", "VR", ",", "s", ",", "x"}], "]"}], 
        ".", 
        RowBox[{"(", 
         RowBox[{"sps", "@", 
          RowBox[{"n3", "[", 
           RowBox[{
           "yt", ",", "vid", ",", "VR", ",", "s", ",", "x", ",", "y"}], 
           "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"b", "=", 
       RowBox[{
        RowBox[{"gs", "[", 
         RowBox[{"yt", ",", "vid", ",", "VR", ",", "s", ",", "y"}], "]"}], 
        ".", 
        RowBox[{"(", 
         RowBox[{"sps", "@", 
          RowBox[{"n3", "[", 
           RowBox[{
           "yt", ",", "vid", ",", "VR", ",", "s", ",", "y", ",", "x"}], 
           "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"e1", "=", 
       RowBox[{"ToExpression", "[", 
        RowBox[{"\"\<e\>\"", "<>", 
         RowBox[{"ToString", "[", "s", "]"}], "<>", 
         RowBox[{"ToString", "[", "x", "]"}], "<>", 
         RowBox[{"ToString", "[", "y", "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"e2", "=", 
       RowBox[{"ToExpression", "[", 
        RowBox[{"\"\<e\>\"", "<>", 
         RowBox[{"ToString", "[", "s", "]"}], "<>", 
         RowBox[{"ToString", "[", "y", "]"}], "<>", 
         RowBox[{"ToString", "[", "x", "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"z1", "=", 
       RowBox[{"ToExpression", "[", 
        RowBox[{"\"\<z\>\"", "<>", 
         RowBox[{"ToString", "[", "s", "]"}], "<>", 
         RowBox[{"ToString", "[", "x", "]"}], "<>", 
         RowBox[{"ToString", "[", "y", "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"z2", "=", 
       RowBox[{"ToExpression", "[", 
        RowBox[{"\"\<z\>\"", "<>", 
         RowBox[{"ToString", "[", "s", "]"}], "<>", 
         RowBox[{"ToString", "[", "y", "]"}], "<>", 
         RowBox[{"ToString", "[", "x", "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"zz", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"b", "*", 
            RowBox[{
             RowBox[{"Exp", "[", 
              RowBox[{"I", 
               RowBox[{"(", " ", "e1", ")"}]}], "]"}], "/", "z1"}]}], " ", 
           ",", 
           RowBox[{"a", "*", 
            RowBox[{
             RowBox[{"Exp", "[", 
              RowBox[{"I", 
               RowBox[{"(", " ", "e2", ")"}]}], "]"}], "/", "z2"}]}]}], " ", 
          "}"}], "/.", "ra"}], "/.", "rb"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"zz", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "/", 
       RowBox[{"zz", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}]}], "\[IndentingNewLine]", 
    "]"}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{
  3.827577038475851*^9, {3.8275775251919513`*^9, 3.8275776654898615`*^9}, {
   3.8275777074270687`*^9, 3.8275778062576904`*^9}, {3.8275778591296434`*^9, 
   3.8275779187675624`*^9}, {3.827583130622552*^9, 3.8275831351984887`*^9}, {
   3.8275859146925097`*^9, 3.827585959700408*^9}, {3.827586270914937*^9, 
   3.827586274459719*^9}, {3.827751072613806*^9, 3.8277510865330114`*^9}},
 CellLabel->
  "In[454]:=",ExpressionUUID->"61f7852c-b1e9-44ea-9dd7-245bb3d2a33f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"gvv", "[", 
   RowBox[{"yt_", ",", "vid_", ",", "VR_", ",", "x_", ",", "y_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"a", ",", "b"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"a", "=", 
      RowBox[{"BELorentz4D", "[", 
       RowBox[{"yt", ",", 
        RowBox[{"FDNormal1", "[", 
         RowBox[{"vid", ",", "VR", ",", "x", ",", "y"}], "]"}]}], "]"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"b", "=", 
      RowBox[{"BELorentz4D", "[", 
       RowBox[{"yt", ",", 
        RowBox[{"FDNormal1", "[", 
         RowBox[{"vid", ",", "VR", ",", "y", ",", "x"}], "]"}]}], "]"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"b", "[", 
         RowBox[{"[", "7", "]"}], "]"}], ".", 
        RowBox[{"Inverse", "[", 
         RowBox[{"a", "[", 
          RowBox[{"[", "7", "]"}], "]"}], "]"}]}], ",", 
       RowBox[{
        RowBox[{"b", "[", 
         RowBox[{"[", "8", "]"}], "]"}], ".", 
        RowBox[{"Inverse", "[", 
         RowBox[{"a", "[", 
          RowBox[{"[", "8", "]"}], "]"}], "]"}]}]}], "}"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.827580618650899*^9, 3.8275806956920958`*^9}, {
  3.8275809874789333`*^9, 3.8275810380770826`*^9}, {3.8277079553389893`*^9, 
  3.827707956522591*^9}, {3.8277510940027328`*^9, 3.827751109074264*^9}},
 CellLabel->
  "In[455]:=",ExpressionUUID->"ec39275f-8c29-4800-a8bf-42d273d246ee"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Boundary", "[", 
   RowBox[{"yt_", ",", "ccr_", ",", "xx_", ",", "Vertex_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "asd", ",", "ra1", ",", "ra2", ",", "ra3", ",", "rb1", ",", "rb2", ",", 
      "rb3", ",", "Sol", ",", "g", ",", "zv", ",", "Arv", ",", 
      RowBox[{"Sid", "=", 
       RowBox[{"{", 
        RowBox[{"6", ",", "4", ",", "2"}], "}"}]}], ",", "xv", ",", "nn"}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"asd", "=", 
      RowBox[{
       RowBox[{"Vertices", "[", 
        RowBox[{"vid", ",", "Sid", ",", "Vertex", ",", 
         RowBox[{"Sqrt", "[", 
          RowBox[{"ccr", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
         RowBox[{"Sqrt", "[", 
          RowBox[{"ccr", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", 
         RowBox[{"Sqrt", "[", 
          RowBox[{"ccr", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "]"}]}], "]"}], "//", "Quiet"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"ra1", "=", 
      RowBox[{
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"cs", "[", 
           RowBox[{
            RowBox[{"yt", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "vid", ",", 
            RowBox[{"asd", "[", 
             RowBox[{"[", 
              RowBox[{"xx", ",", "2"}], "]"}], "]"}], ",", "1"}], "]"}], 
          "\[Equal]", 
          RowBox[{"e", "[", "1", "]"}]}], ",", 
         RowBox[{"Flatten", "[", 
          RowBox[{"e", "[", "1", "]"}], "]"}]}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"rb1", "=", 
      RowBox[{
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"cp", "[", 
           RowBox[{
            RowBox[{"yt", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "vid", ",", 
            RowBox[{"asd", "[", 
             RowBox[{"[", 
              RowBox[{"xx", ",", "2"}], "]"}], "]"}], ",", "1"}], "]"}], 
          "\[Equal]", 
          RowBox[{"z", "[", "1", "]"}]}], ",", 
         RowBox[{"Flatten", "[", 
          RowBox[{"z", "[", "1", "]"}], "]"}]}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"ra2", "=", 
      RowBox[{
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"cs", "[", 
           RowBox[{
            RowBox[{"yt", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "vid", ",", 
            RowBox[{"asd", "[", 
             RowBox[{"[", 
              RowBox[{"xx", ",", "2"}], "]"}], "]"}], ",", "2"}], "]"}], 
          "\[Equal]", 
          RowBox[{"e", "[", "2", "]"}]}], ",", 
         RowBox[{"Flatten", "[", 
          RowBox[{"e", "[", "2", "]"}], "]"}]}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"rb2", "=", 
      RowBox[{
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"cp", "[", 
           RowBox[{
            RowBox[{"yt", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "vid", ",", 
            RowBox[{"asd", "[", 
             RowBox[{"[", 
              RowBox[{"xx", ",", "2"}], "]"}], "]"}], ",", "2"}], "]"}], 
          "\[Equal]", 
          RowBox[{"z", "[", "2", "]"}]}], ",", 
         RowBox[{"Flatten", "[", 
          RowBox[{"z", "[", "2", "]"}], "]"}]}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"ra3", "=", 
      RowBox[{
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"cs", "[", 
           RowBox[{
            RowBox[{"yt", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", "vid", ",", 
            RowBox[{"asd", "[", 
             RowBox[{"[", 
              RowBox[{"xx", ",", "2"}], "]"}], "]"}], ",", "3"}], "]"}], 
          "\[Equal]", 
          RowBox[{"e", "[", "3", "]"}]}], ",", 
         RowBox[{"Flatten", "[", 
          RowBox[{"e", "[", "3", "]"}], "]"}]}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"rb3", "=", 
      RowBox[{
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"cp", "[", 
           RowBox[{
            RowBox[{"yt", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", "vid", ",", 
            RowBox[{"asd", "[", 
             RowBox[{"[", 
              RowBox[{"xx", ",", "2"}], "]"}], "]"}], ",", "3"}], "]"}], 
          "\[Equal]", 
          RowBox[{"z", "[", "3", "]"}]}], ",", 
         RowBox[{"Flatten", "[", 
          RowBox[{"z", "[", "3", "]"}], "]"}]}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Sol", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"ra1", ",", "rb1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ra2", ",", "rb2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ra3", ",", "rb3"}], "}"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"g", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"BELorentz4D", "[", 
          RowBox[{
           RowBox[{"yt", "[", 
            RowBox[{"[", "s", "]"}], "]"}], ",", 
           RowBox[{"FDNormal1", "[", 
            RowBox[{"vid", ",", 
             RowBox[{"asd", "[", 
              RowBox[{"[", 
               RowBox[{"xx", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"Sid", "[", 
              RowBox[{"[", "s", "]"}], "]"}], ",", "t"}], "]"}]}], "]"}], "[", 
         RowBox[{"[", "8", "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"s", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"xv", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"sps", "@", 
         RowBox[{"n3", "[", 
          RowBox[{
           RowBox[{"yt", "[", 
            RowBox[{"[", "t", "]"}], "]"}], ",", "vid", ",", 
           RowBox[{"asd", "[", 
            RowBox[{"[", 
             RowBox[{"xx", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{"Sid", "[", 
            RowBox[{"[", "t", "]"}], "]"}], ",", "x", ",", "y"}], "]"}]}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"nn", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"n3", "[", 
         RowBox[{
          RowBox[{"yt", "[", 
           RowBox[{"[", "t", "]"}], "]"}], ",", "vid", ",", 
          RowBox[{"asd", "[", 
           RowBox[{"[", 
            RowBox[{"xx", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"Sid", "[", 
           RowBox[{"[", "t", "]"}], "]"}], ",", "x", ",", "y"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"zv", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"zs", "[", 
         RowBox[{
          RowBox[{"yt", "[", 
           RowBox[{"[", "t", "]"}], "]"}], ",", "vid", ",", 
          RowBox[{"asd", "[", 
           RowBox[{"[", 
            RowBox[{"xx", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"Sid", "[", 
           RowBox[{"[", "t", "]"}], "]"}], ",", "x", ",", "y", ",", 
          RowBox[{"Sol", "[", 
           RowBox[{"[", 
            RowBox[{"t", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"Sol", "[", 
           RowBox[{"[", 
            RowBox[{"t", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Arv", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Norm", "@", 
          RowBox[{"n3", "[", 
           RowBox[{
            RowBox[{"yt", "[", 
             RowBox[{"[", "t", "]"}], "]"}], ",", "vid", ",", 
            RowBox[{"asd", "[", 
             RowBox[{"[", 
              RowBox[{"xx", ",", "2"}], "]"}], "]"}], ",", 
            RowBox[{"Sid", "[", 
             RowBox[{"[", "t", "]"}], "]"}], ",", "x", ",", "y"}], "]"}]}], 
         "/", "2"}], ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"g", ",", "zv", ",", "xv", ",", "Arv", ",", "Sol", ",", "nn"}], 
      "}"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.827581830868989*^9, 3.8275819185368896`*^9}, {
   3.8275819489900274`*^9, 3.827581957802808*^9}, {3.8275819972507625`*^9, 
   3.827582038277702*^9}, {3.8275821000665197`*^9, 3.8275821084116755`*^9}, {
   3.8275821643547535`*^9, 3.8275821652805667`*^9}, {3.8275822458104367`*^9, 
   3.8275822527453017`*^9}, {3.827583365611046*^9, 3.8275833669361753`*^9}, 
   3.827726263483107*^9, {3.827751122253312*^9, 3.8277511741198945`*^9}, {
   3.8277512658173056`*^9, 3.8277513182394333`*^9}, {3.82775255744287*^9, 
   3.8277526114766064`*^9}, {3.8278319437448144`*^9, 
   3.8278319913744235`*^9}, {3.8278320222548237`*^9, 3.8278320276988945`*^9}, 
   3.827832084609624*^9, {3.8336062250795393`*^9, 3.833606247013797*^9}, {
   3.83360636032047*^9, 3.8336063607915745`*^9}, {3.8399323042467194`*^9, 
   3.8399323087747335`*^9}},
 CellLabel->
  "In[456]:=",ExpressionUUID->"2048c9f3-a65c-4209-8962-8b5c6dce1e69"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Rotation3L1", "[", "x_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"u", ",", "v", ",", "RO", ",", "ang1", ",", 
      RowBox[{"S1", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", " ", 
          RowBox[{"0", ",", "0", ",", 
           RowBox[{"-", "I"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "I", ",", "0"}], "}"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"S2", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "I"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "I"}], ",", "0", ",", "0"}], "}"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"S3", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", 
           RowBox[{"-", "I"}], ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"I", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"u", "=", "x"}], ";", "\[IndentingNewLine]", 
     RowBox[{"v", "=", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", 
        RowBox[{"Norm", "[", "u", "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Norm", "[", "u", "]"}], "\[Equal]", "0"}], ",", 
       RowBox[{"RO", "=", 
        RowBox[{"IdentityMatrix", "[", "3", "]"}]}], ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], "&&", 
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], "&&", 
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"[", "3", "]"}], "]"}], "<", "0"}]}], ",", 
         RowBox[{"RO", "=", 
          RowBox[{"MatrixExp", "[", 
           RowBox[{
            RowBox[{"-", "I"}], "*", "Pi", "*", "S3"}], "]"}]}], ",", 
         RowBox[{"RO", "=", 
          RowBox[{"RotationMatrix", "[", 
           RowBox[{"{", 
            RowBox[{"u", ",", "v"}], "}"}], "]"}]}]}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"ang1", "=", 
      RowBox[{"EulerAngles", "[", 
       RowBox[{"RO", ",", 
        RowBox[{"{", 
         RowBox[{"3", ",", "2", ",", "1"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"MatrixExp", "[", 
       RowBox[{"I", " ", 
        RowBox[{"ang1", "[", 
         RowBox[{"[", "3", "]"}], "]"}], "*", 
        RowBox[{
         RowBox[{"PauliMatrix", "[", "1", "]"}], "/", "2"}]}], "]"}], ".", 
      RowBox[{"MatrixExp", "[", 
       RowBox[{"I", " ", 
        RowBox[{"ang1", "[", 
         RowBox[{"[", "2", "]"}], "]"}], "*", 
        RowBox[{
         RowBox[{"PauliMatrix", "[", "2", "]"}], "/", "2"}]}], "]"}], ".", 
      RowBox[{"MatrixExp", "[", 
       RowBox[{"I", " ", 
        RowBox[{"ang1", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "*", 
        RowBox[{
         RowBox[{"PauliMatrix", "[", "3", "]"}], "/", "2"}]}], "]"}]}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{3.8336240662408485`*^9, 3.8336254330217676`*^9, 
  3.833626646930649*^9},
 CellLabel->
  "In[457]:=",ExpressionUUID->"eca88020-ddf0-46bb-ae7c-fb6d872ab527"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DumpSave", "[", 
  RowBox[{"tempfile18", ",", 
   RowBox[{"{", 
    RowBox[{
    "NNTable", ",", "OrientationSelect", ",", "test", ",", "n3", ",", "n3s", 
     ",", "gs", ",", "e", ",", "z", ",", "cs", ",", "cp", ",", "testparallel",
      ",", "zs", ",", "gvv", ",", "Boundary", ",", "diffeep", ",", 
     "Rotation3L1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8275823451383476`*^9, 3.827582496312354*^9}, {
  3.8275827467033715`*^9, 3.8275827470461082`*^9}, {3.8336234726132507`*^9, 
  3.8336234891048255`*^9}},
 CellLabel->
  "In[458]:=",ExpressionUUID->"4dab7107-a69b-4435-b91b-db07c315432f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "NNTable", ",", "OrientationSelect", ",", "test", ",", "n3", ",", "n3s", 
   ",", "gs", ",", "e", ",", "z", ",", "cs", ",", "cp", ",", "testparallel", 
   ",", "zs", ",", "gvv", ",", "Boundary", ",", "diffeep", ",", 
   "Rotation3L1"}], "}"}]], "Output",
 CellChangeTimes->{{3.827582498645384*^9, 3.8275825252502728`*^9}, 
   3.827582751215228*^9, 3.82758313914848*^9, 3.8275833712340956`*^9, 
   3.8275859867165155`*^9, 3.827586276383086*^9, 3.827707891191316*^9, 
   3.827707963222784*^9, 3.8277253082370167`*^9, 3.8277263163440323`*^9, 
   3.8277512162707124`*^9, 3.827751931916561*^9, 3.8277562520394535`*^9, 
   3.8278318452363105`*^9, 3.82783218245979*^9, 3.83362349117729*^9, 
   3.8336240717202315`*^9, 3.83362543637652*^9, 3.833625468271*^9, 
   3.8336266539386616`*^9, 3.8336267484103823`*^9, 3.8399323140079045`*^9},
 CellLabel->
  "Out[458]=",ExpressionUUID->"5f6607fb-d914-4f34-afe8-0e69facfded2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"xv", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.83360660114859*^9, 3.8336066302936454`*^9}},
 CellLabel->
  "In[459]:=",ExpressionUUID->"4929bb38-8b4f-464d-a8c8-91908fccba86"],

Cell[BoxData[
 TemplateBox[{
  "Part","partd",
   "\"Part specification \\!\\(\\*RowBox[{\\\"xv\\\", \
\\\"\[LeftDoubleBracket]\\\", \\\"1\\\", \\\"\[RightDoubleBracket]\\\"}]\\) \
is longer than depth of object.\"",2,459,151,21228641750117249678,
   "New Kernel 1"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.839932314070919*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[459]:=",ExpressionUUID->"ab159cbc-eecd-40bc-\
8567-be1b6d5170d8"],

Cell[BoxData[
 TagBox[
  RowBox[{"xv", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.833606607560646*^9, 3.833606630973798*^9}, 
   3.8399323140839214`*^9},
 CellLabel->
  "Out[459]//MatrixForm=",ExpressionUUID->"6c71dbde-fa3a-4fb4-bebb-\
db57c29690ef"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"NN", "=", 
   RowBox[{"Boundary", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", "ccr", ",", "3", 
     ",", "Vertex"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8336064244368553`*^9, 3.8336064289646626`*^9}, {
   3.8336065006761837`*^9, 3.833606501320328*^9}, {3.8336066429576874`*^9, 
   3.833606643384785*^9}, {3.8336072203637466`*^9, 3.833607220710639*^9}, 
   3.8336072844549117`*^9, {3.8399323276684823`*^9, 3.8399323298649735`*^9}},
 CellLabel->
  "In[483]:=",ExpressionUUID->"adf5880d-5dda-4f26-a717-7a35a2b4ab86"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Rotation3L1", "[", "x_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"u", ",", "v", ",", "RO", ",", "ang1"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"u", "=", "x"}], ";", "\[IndentingNewLine]", 
     RowBox[{"v", "=", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", 
        RowBox[{"Norm", "[", "u", "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Norm", "[", "u", "]"}], "\[Equal]", "0"}], ",", 
       RowBox[{"RO", "=", 
        RowBox[{"IdentityMatrix", "[", "3", "]"}]}], ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], "&&", 
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], "&&", 
          RowBox[{
           RowBox[{"Abs", "[", 
            RowBox[{
             RowBox[{"u", "[", 
              RowBox[{"[", "3", "]"}], "]"}], "+", 
             RowBox[{"Norm", "[", "u", "]"}]}], "]"}], "<", 
           RowBox[{"10", "^", "15"}]}]}], ",", 
         RowBox[{"RO", "=", 
          RowBox[{"EulerAngles", "[", 
           RowBox[{
            RowBox[{"MatrixExp", "[", 
             RowBox[{"I", "*", "Pi", "*", "S2"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"3", ",", "2", ",", "1"}], "}"}]}], "]"}]}], ",", 
         RowBox[{"RO", "=", 
          RowBox[{"RotationMatrix", "[", 
           RowBox[{"{", 
            RowBox[{"u", ",", "v"}], "}"}], "]"}]}]}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"ang1", "=", 
      RowBox[{"EulerAngles", "[", 
       RowBox[{"RO", ",", 
        RowBox[{"{", 
         RowBox[{"3", ",", "2", ",", "1"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"MatrixExp", "[", 
       RowBox[{"I", " ", 
        RowBox[{"ang1", "[", 
         RowBox[{"[", "3", "]"}], "]"}], "*", 
        RowBox[{
         RowBox[{"PauliMatrix", "[", "1", "]"}], "/", "2"}]}], "]"}], ".", 
      RowBox[{"MatrixExp", "[", 
       RowBox[{"I", " ", 
        RowBox[{"ang1", "[", 
         RowBox[{"[", "2", "]"}], "]"}], "*", 
        RowBox[{
         RowBox[{"PauliMatrix", "[", "2", "]"}], "/", "2"}]}], "]"}], ".", 
      RowBox[{"MatrixExp", "[", 
       RowBox[{"I", " ", 
        RowBox[{"ang1", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "*", 
        RowBox[{
         RowBox[{"PauliMatrix", "[", "3", "]"}], "/", "2"}]}], "]"}]}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.8336069660251217`*^9, 3.8336069715420265`*^9}, {
  3.833607008090549*^9, 3.833607017851714*^9}, {3.8336071461837397`*^9, 
  3.833607148723138*^9}, {3.83362330684262*^9, 3.833623339202798*^9}, {
  3.833624025084314*^9, 3.833624054655673*^9}, {3.833625374031457*^9, 
  3.8336254254038706`*^9}},
 CellLabel->
  "In[484]:=",ExpressionUUID->"0aa21c93-55fc-413b-8a5a-7573bd60dad3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"S1", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", " ", 
      RowBox[{"0", ",", "0", ",", 
       RowBox[{"-", "I"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "I", ",", "0"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"S2", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "I"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "I"}], ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"S3", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "I"}], ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"I", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.833608089315309*^9, 3.8336081000724783`*^9}, 
   3.8336091683112984`*^9, 3.8336121855398397`*^9, {3.833622441475503*^9, 
   3.8336225390487747`*^9}, {3.8336225800138936`*^9, 3.833622619612958*^9}, {
   3.833622664543472*^9, 3.833622763709346*^9}, {3.833622813887564*^9, 
   3.83362283593583*^9}},
 CellLabel->
  "In[485]:=",ExpressionUUID->"d2d61542-8c23-45a5-8f9b-1b0ab5f0033a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Rotation3L1", "[", 
   RowBox[{"NN", "[", 
    RowBox[{"[", 
     RowBox[{"6", ",", "1", ",", "3", ",", "2"}], "]"}], "]"}], "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.8336233819077168`*^9, 3.8336234103134346`*^9}},
 CellLabel->
  "In[488]:=",ExpressionUUID->"172b9a04-d7d0-4bd1-a2d8-7abe8a59984f"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"0.9574271077563381`", "\[VeryThinSpace]", "-", 
       RowBox[{"6.591949208711867`*^-17", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "0.1207908118985982`"}], "-", 
       RowBox[{"0.26218869749516427`", " ", "\[ImaginaryI]"}]}]},
     {
      RowBox[{"0.1207908118985982`", "\[VeryThinSpace]", "-", 
       RowBox[{"0.2621886974951642`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"0.9574271077563381`", "\[VeryThinSpace]", "+", 
       RowBox[{"5.898059818321144`*^-17", " ", "\[ImaginaryI]"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.8336234055555563`*^9, 3.8336234107745376`*^9}, {
  3.839932314267963*^9, 3.8399323382063036`*^9}},
 CellLabel->
  "Out[488]//MatrixForm=",ExpressionUUID->"5566631d-493c-495a-a1cb-\
6db60c874759"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"asd", "=", 
   RowBox[{
    RowBox[{"OrientationSelect", "[", 
     RowBox[{"Vertices", "[", 
      RowBox[{"vid", ",", "Sid", ",", "Vertex", ",", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"ccr", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"ccr", "[", 
         RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"ccr", "[", 
         RowBox[{"[", "3", "]"}], "]"}], "]"}]}], "]"}], "]"}], "//", 
    "Quiet"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8271112844172506`*^9, 3.827111356085412*^9}, {
  3.8271114141106567`*^9, 3.8271114288509645`*^9}},
 CellLabel->
  "In[466]:=",ExpressionUUID->"3b3b3a82-2c4f-4f13-af62-dd3ae10a6ec4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ge", "=", 
  RowBox[{"DiagonalMatrix", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1"}], "}"}], 
   "]"}]}]], "Input",
 CellLabel->
  "In[467]:=",ExpressionUUID->"f0a119bf-d3b0-47e9-bd88-275d7076b7cf"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.827751365517723*^9, 3.827751932369915*^9, 
  3.8277562524816723`*^9, 3.827831845676094*^9, 3.8278321829087815`*^9, 
  3.839932314880619*^9},
 CellLabel->
  "Out[467]=",ExpressionUUID->"aad1a511-b613-4852-a5d2-58f592d44d0e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Position", "[", 
  RowBox[{"Sid", ",", "2"}], "]"}]], "Input",
 CellLabel->
  "In[468]:=",ExpressionUUID->"eea750cd-a269-40ce-930a-a0f639d75303"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", "3", "}"}], "}"}]], "Output",
 CellChangeTimes->{3.8277514004569387`*^9, 3.8277519324279423`*^9, 
  3.8277562525256834`*^9, 3.8278318457211037`*^9, 3.8278321829637947`*^9, 
  3.839932314954636*^9},
 CellLabel->
  "Out[468]=",ExpressionUUID->"defebb99-5603-4bc7-967b-457d69a5c330"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"yt", "[", 
  RowBox[{"[", 
   RowBox[{
    RowBox[{"Position", "[", 
     RowBox[{"Sid", ",", "2"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}]], "Input",
 CellLabel->
  "In[469]:=",ExpressionUUID->"98fbb99f-0e13-4c67-a0fd-3ebc57e35b9b"],

Cell[BoxData[
 TemplateBox[{
  "Part","partd",
   "\"Part specification \\!\\(\\*RowBox[{\\\"yt\\\", \
\\\"\[LeftDoubleBracket]\\\", \\\"3\\\", \\\"\[RightDoubleBracket]\\\"}]\\) \
is longer than depth of object.\"",2,469,159,21228641750117249678,
   "New Kernel 1"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.8399323150226517`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[469]:=",ExpressionUUID->"a0acf5f3-a971-4a6c-\
b712-9d617bcad243"],

Cell[BoxData[
 RowBox[{"yt", "\[LeftDoubleBracket]", "3", 
  "\[RightDoubleBracket]"}]], "Output",
 CellChangeTimes->{3.8277514202470818`*^9, 3.82775193248897*^9, 
  3.8277562525786963`*^9, 3.827831845766115*^9, 3.8278321830168076`*^9, 
  3.8399323150316525`*^9},
 CellLabel->
  "Out[469]=",ExpressionUUID->"f109a491-e766-4dd6-926d-59fdffd27c34"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"yt", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.827751351589117*^9, 3.8277513626516085`*^9}},
 CellLabel->
  "In[470]:=",ExpressionUUID->"c210cd7e-010c-40fc-a951-84698240cb5d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"diffjep", "[", 
        RowBox[{
         RowBox[{"yt", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", "2"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", "vid", 
         ",", 
         RowBox[{"asd", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", "2", ",", 
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", "#"}], "}"}], "&"}], ",", 
   RowBox[{"Subsets", "[", 
    RowBox[{
     RowBox[{"vid", "/.", 
      RowBox[{
       RowBox[{"Sid", "[", 
        RowBox[{"[", "3", "]"}], "]"}], "\[Rule]", "Nothing"}]}], ",", 
     RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"diffjep", "[", 
        RowBox[{
         RowBox[{"yt", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", "4"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", "vid", 
         ",", 
         RowBox[{"asd", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", "4", ",", 
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", "#"}], "}"}], "&"}], ",", 
   RowBox[{"Subsets", "[", 
    RowBox[{
     RowBox[{"vid", "/.", 
      RowBox[{
       RowBox[{"Sid", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "\[Rule]", "Nothing"}]}], ",", 
     RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"diffjep", "[", 
        RowBox[{
         RowBox[{"yt", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", "6"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", "vid", 
         ",", 
         RowBox[{"asd", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", "6", ",", 
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", "#"}], "}"}], "&"}], ",", 
   RowBox[{"Subsets", "[", 
    RowBox[{
     RowBox[{"vid", "/.", 
      RowBox[{
       RowBox[{"Sid", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "\[Rule]", "Nothing"}]}], ",", 
     RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"diffeep", "[", 
        RowBox[{
         RowBox[{"yt", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", "2"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", "vid", 
         ",", 
         RowBox[{"asd", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", "2", ",", 
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", "#"}], "}"}], "&"}], ",", 
   RowBox[{"Subsets", "[", 
    RowBox[{
     RowBox[{"vid", "/.", 
      RowBox[{
       RowBox[{"Sid", "[", 
        RowBox[{"[", "3", "]"}], "]"}], "\[Rule]", "Nothing"}]}], ",", 
     RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"diffeep", "[", 
        RowBox[{
         RowBox[{"yt", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", "4"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", "vid", 
         ",", 
         RowBox[{"asd", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", "4", ",", 
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", "#"}], "}"}], "&"}], ",", 
   RowBox[{"Subsets", "[", 
    RowBox[{
     RowBox[{"vid", "/.", 
      RowBox[{
       RowBox[{"Sid", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "\[Rule]", "Nothing"}]}], ",", 
     RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"diffeep", "[", 
        RowBox[{
         RowBox[{"yt", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", "6"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", "vid", 
         ",", 
         RowBox[{"asd", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", "6", ",", 
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", "#"}], "}"}], "&"}], ",", 
   RowBox[{"Subsets", "[", 
    RowBox[{
     RowBox[{"vid", "/.", 
      RowBox[{
       RowBox[{"Sid", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "\[Rule]", "Nothing"}]}], ",", 
     RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8277247684976807`*^9, 3.827724786347967*^9}, {
  3.8277513700281506`*^9, 3.8277514595140314`*^9}},
 CellLabel->
  "In[471]:=",ExpressionUUID->"ce28e626-e8f5-4dc3-9758-62b8ec585e95"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "3"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "5"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "4"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "5"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "4"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "4"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "6"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8277247759289684`*^9, 3.8277247870559535`*^9}, 
   3.8277253134178467`*^9, 3.8277263168790693`*^9, 3.827751498616938*^9, 
   3.827751615778802*^9, 3.8277519327100706`*^9, 3.827756252764744*^9, 
   3.8278318458511353`*^9, 3.827832183114831*^9, 3.839932315141678*^9},
 CellLabel->
  "Out[471]=",ExpressionUUID->"100f0796-b071-4589-a130-11bc2f914739"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "3"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "5"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "5"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "2"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "2"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "6"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8277247759289684`*^9, 3.8277247870559535`*^9}, 
   3.8277253134178467`*^9, 3.8277263168790693`*^9, 3.827751498616938*^9, 
   3.827751615778802*^9, 3.8277519327100706`*^9, 3.827756252764744*^9, 
   3.8278318458511353`*^9, 3.827832183114831*^9, 3.839932315204692*^9},
 CellLabel->
  "Out[472]=",ExpressionUUID->"f52adc0d-14fe-4fbe-bf8a-86b43e8eeddc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "3"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "5"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "4"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "5"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "2"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "4"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "2"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "4"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "4"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8277247759289684`*^9, 3.8277247870559535`*^9}, 
   3.8277253134178467`*^9, 3.8277263168790693`*^9, 3.827751498616938*^9, 
   3.827751615778802*^9, 3.8277519327100706`*^9, 3.827756252764744*^9, 
   3.8278318458511353`*^9, 3.827832183114831*^9, 3.8399323152757072`*^9},
 CellLabel->
  "Out[473]=",ExpressionUUID->"c27b3d6d-1c20-4cc2-86ff-ce7774ba74be"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "3"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "5"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "4"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "5"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "4"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "4"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "6"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8277247759289684`*^9, 3.8277247870559535`*^9}, 
   3.8277253134178467`*^9, 3.8277263168790693`*^9, 3.827751498616938*^9, 
   3.827751615778802*^9, 3.8277519327100706`*^9, 3.827756252764744*^9, 
   3.8278318458511353`*^9, 3.827832183114831*^9, 3.8399323153447227`*^9},
 CellLabel->
  "Out[474]=",ExpressionUUID->"a05d39eb-b669-4579-9b85-cd8d51841f3f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "3"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "5"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "5"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "2"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "2"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "6"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8277247759289684`*^9, 3.8277247870559535`*^9}, 
   3.8277253134178467`*^9, 3.8277263168790693`*^9, 3.827751498616938*^9, 
   3.827751615778802*^9, 3.8277519327100706`*^9, 3.827756252764744*^9, 
   3.8278318458511353`*^9, 3.827832183114831*^9, 3.839932315439745*^9},
 CellLabel->
  "Out[475]=",ExpressionUUID->"7e13ca98-af38-4790-9a05-ed73c14b3981"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "3"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "5"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "4"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "5"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "2"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "4"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "2"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "4"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "4"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8277247759289684`*^9, 3.8277247870559535`*^9}, 
   3.8277253134178467`*^9, 3.8277263168790693`*^9, 3.827751498616938*^9, 
   3.827751615778802*^9, 3.8277519327100706`*^9, 3.827756252764744*^9, 
   3.8278318458511353`*^9, 3.827832183114831*^9, 3.839932315517762*^9},
 CellLabel->
  "Out[476]=",ExpressionUUID->"2e1dc805-3389-4c9b-a073-1c2f7ab02960"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"gv", ",", "zv", ",", "xv", ",", "arv", ",", "sol"}], "}"}], "=", 
   RowBox[{"Boundary", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "ccr", ",", "1"}], "]"}]}],
   ";"}]], "Input",
 CellChangeTimes->{{3.827725405999793*^9, 3.8277254866288867`*^9}, {
  3.827751248822891*^9, 3.8277512593709*^9}, {3.827756260534895*^9, 
  3.827756260680972*^9}, {3.8278320010955925`*^9, 3.827832001669595*^9}},
 CellLabel->
  "In[477]:=",ExpressionUUID->"7b71eb06-5888-44b3-a1b4-e4142cc005d0"],

Cell[BoxData[
 TemplateBox[{
  "Set","shape",
   "\"Lists \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"gv\\\", \\\",\\\", \\\"zv\
\\\", \\\",\\\", \\\"xv\\\", \\\",\\\", \\\"arv\\\", \\\",\\\", \
\\\"sol\\\"}], \\\"}\\\"}]\\) and \\!\\(\\*RowBox[{\\\"Boundary\\\", \
\\\"[\\\", RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"1\\\", \\\",\\\", \
RowBox[{\\\"-\\\", \\\"1\\\"}], \\\",\\\", \\\"1\\\"}], \\\"}\\\"}], \
\\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"8.781520334149318`\\\", \\\",\\\", \
\\\"28.795811804752404`\\\", \\\",\\\", \\\"12.914052822249799`\\\"}], \
\\\"}\\\"}], \\\",\\\", \\\"1\\\"}], \\\"]\\\"}]\\) are not the same \
shape.\"",2,477,160,21228641750117249678,"New Kernel 1"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.8399323155887775`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[477]:=",ExpressionUUID->"2b459dba-6e2c-430d-\
8dda-ef50bb234ab9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["xv"], "Input",
 CellChangeTimes->{{3.827832006318035*^9, 3.8278320065245867`*^9}},
 CellLabel->
  "In[478]:=",ExpressionUUID->"2735a55c-1d70-48c0-809d-3a130ef93c86"],

Cell[BoxData["xv"], "Output",
 CellChangeTimes->{{3.827832007233945*^9, 3.8278320365616465`*^9}, 
   3.827832094009301*^9, 3.827832185045291*^9, 3.839932315628786*^9},
 CellLabel->
  "Out[478]=",ExpressionUUID->"e40e5a9c-c10b-40ab-ae62-5df76c472056"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["gv"], "Input",
 CellChangeTimes->{{3.8277254776483974`*^9, 3.8277254777981853`*^9}},
 CellLabel->
  "In[479]:=",ExpressionUUID->"9ddebc71-548f-4c9d-acf3-b6b1e6f03141"],

Cell[BoxData["gv"], "Output",
 CellChangeTimes->{3.8277254784030304`*^9, 3.8277263200797553`*^9, 
  3.8277516264054337`*^9, 3.8277519344178486`*^9, 3.8277562530968285`*^9, 
  3.827831847565544*^9, 3.827832185108306*^9, 3.839932315656793*^9},
 CellLabel->
  "Out[479]=",ExpressionUUID->"dbca1750-6350-415c-924f-001415bc6a04"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["zv"], "Input",
 CellChangeTimes->{{3.8277516293191533`*^9, 3.8277516300852747`*^9}},
 CellLabel->
  "In[480]:=",ExpressionUUID->"2251e5b3-5e1d-4ec3-b517-923d5368bc97"],

Cell[BoxData["zv"], "Output",
 CellChangeTimes->{3.8277516305753326`*^9, 3.8277519344908824`*^9, 
  3.827756253150842*^9, 3.8278318476425624`*^9, 3.8278321851843243`*^9, 
  3.8399323156908007`*^9},
 CellLabel->
  "Out[480]=",ExpressionUUID->"0dcb96e5-d06f-4ba5-981f-b1c94335b966"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["arv"], "Input",
 CellChangeTimes->{{3.8277516333270164`*^9, 3.8277516339584036`*^9}},
 CellLabel->
  "In[481]:=",ExpressionUUID->"f3cab5c5-f175-4f91-b37b-3c68c1273ba8"],

Cell[BoxData["arv"], "Output",
 CellChangeTimes->{3.827751634296297*^9, 3.8277519345469074`*^9, 
  3.8277562531958537`*^9, 3.8278318476985755`*^9, 3.827832185252537*^9, 
  3.8399323157148066`*^9},
 CellLabel->
  "Out[481]=",ExpressionUUID->"7884c3e8-62d6-4c58-8b5b-95e5f7a426a6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sps", "@", 
  RowBox[{"n3", "[", 
   RowBox[{"1", ",", "vid", ",", 
    RowBox[{"asd", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", "6", ",", "5", ",", "3"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8278318724120455`*^9, 3.8278319275975933`*^9}},
 CellLabel->
  "In[482]:=",ExpressionUUID->"f914373f-cfa5-4d98-be51-509e5e265fc4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.9574271077563381`", ",", 
   RowBox[{"0.05274943015462106`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.28381478282798456`", " ", "\[ImaginaryI]"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.8278318873295164`*^9, 3.8278319282218437`*^9}, 
   3.82783218531155*^9, 3.839932315737811*^9},
 CellLabel->
  "Out[482]=",ExpressionUUID->"1086d40a-1f71-460c-8c37-4f34aae7dfd4"]
}, Open  ]]
},
WindowSize->{1920, 997},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
Magnification:>0.9 Inherited,
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (2019\:5e744\:67088\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 650, 10, 26, "Input",ExpressionUUID->"92ed2f1f-f96f-4621-b354-885339e7b022"],
Cell[1211, 32, 206, 5, 26, "Input",ExpressionUUID->"67bf5be3-1074-40f1-a750-dc09bdecd627"],
Cell[1420, 39, 1776, 45, 171, "Input",ExpressionUUID->"d586989c-c234-414f-b5dd-ff5ed5aa637a"],
Cell[CellGroupData[{
Cell[3221, 88, 182, 3, 26, "Input",ExpressionUUID->"95d4cb73-c882-40a9-b107-eeda4f9932a1"],
Cell[3406, 93, 1083, 19, 30, "Output",ExpressionUUID->"cf817f83-965e-459c-b6e7-481eb79028cd"]
}, Open  ]],
Cell[4504, 115, 4289, 120, 261, "Input",ExpressionUUID->"b18e76af-e999-4515-ab9d-35956fd31a18"],
Cell[8796, 237, 1130, 26, 26, "Input",ExpressionUUID->"90e7aa15-f479-4f3a-b888-01db531fdb4c"],
Cell[9929, 265, 3978, 103, 225, "Input",ExpressionUUID->"d28ddeb7-cade-405a-a1ca-e4a4756feeec"],
Cell[13910, 370, 456, 13, 26, "Input",ExpressionUUID->"e769cd27-1f49-48cf-8b19-020563f8ca2d"],
Cell[14369, 385, 4900, 125, 261, "Input",ExpressionUUID->"6c433b40-8a3d-4b2b-b991-7d7a20b3bc2a"],
Cell[19272, 512, 11540, 310, 567, "Input",ExpressionUUID->"95af3cc9-69b2-4a9a-a451-b254ddc7eee9"],
Cell[30815, 824, 3935, 101, 189, "Input",ExpressionUUID->"e127dc5a-9ffe-4c5d-8cae-e1e362fb0b53"],
Cell[34753, 927, 4046, 105, 225, "Input",ExpressionUUID->"61f7852c-b1e9-44ea-9dd7-245bb3d2a33f"],
Cell[38802, 1034, 1529, 40, 99, "Input",ExpressionUUID->"ec39275f-8c29-4800-a8bf-42d273d246ee"],
Cell[40334, 1076, 10161, 265, 297, "Input",ExpressionUUID->"2048c9f3-a65c-4209-8962-8b5c6dce1e69"],
Cell[50498, 1343, 3673, 103, 171, "Input",ExpressionUUID->"eca88020-ddf0-46bb-ae7c-fb6d872ab527"],
Cell[CellGroupData[{
Cell[54196, 1450, 630, 13, 26, "Input",ExpressionUUID->"4dab7107-a69b-4435-b91b-db07c315432f"],
Cell[54829, 1465, 952, 16, 30, "Output",ExpressionUUID->"5f6607fb-d914-4f34-afe8-0e69facfded2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55818, 1486, 262, 6, 26, "Input",ExpressionUUID->"4929bb38-8b4f-464d-a8c8-91908fccba86"],
Cell[56083, 1494, 459, 11, 24, "Message",ExpressionUUID->"ab159cbc-eecd-40bc-8567-be1b6d5170d8"],
Cell[56545, 1507, 349, 9, 42, "Output",ExpressionUUID->"6c71dbde-fa3a-4fb4-bebb-db57c29690ef"]
}, Open  ]],
Cell[56909, 1519, 631, 14, 26, "Input",ExpressionUUID->"adf5880d-5dda-4f26-a717-7a35a2b4ab86"],
Cell[57543, 1535, 3078, 81, 135, "Input",ExpressionUUID->"0aa21c93-55fc-413b-8a5a-7573bd60dad3"],
Cell[60624, 1618, 1434, 42, 63, "Input",ExpressionUUID->"d2d61542-8c23-45a5-8f9b-1b0ab5f0033a"],
Cell[CellGroupData[{
Cell[62083, 1664, 354, 9, 26, "Input",ExpressionUUID->"172b9a04-d7d0-4bd1-a2d8-7abe8a59984f"],
Cell[62440, 1675, 1204, 29, 117, "Output",ExpressionUUID->"5566631d-493c-495a-a1cb-6db60c874759"]
}, Open  ]],
Cell[63659, 1707, 773, 20, 26, "Input",ExpressionUUID->"3b3b3a82-2c4f-4f13-af62-dd3ae10a6ec4"],
Cell[CellGroupData[{
Cell[64457, 1731, 268, 8, 26, "Input",ExpressionUUID->"f0a119bf-d3b0-47e9-bd88-275d7076b7cf"],
Cell[64728, 1741, 635, 16, 30, "Output",ExpressionUUID->"aad1a511-b613-4852-a5d2-58f592d44d0e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65400, 1762, 169, 4, 26, "Input",ExpressionUUID->"eea750cd-a269-40ce-930a-a0f639d75303"],
Cell[65572, 1768, 324, 7, 30, "Output",ExpressionUUID->"defebb99-5603-4bc7-967b-457d69a5c330"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65933, 1780, 306, 9, 26, "Input",ExpressionUUID->"98fbb99f-0e13-4c67-a0fd-3ebc57e35b9b"],
Cell[66242, 1791, 461, 11, 24, "Message",ExpressionUUID->"a0acf5f3-a971-4a6c-b712-9d617bcad243"],
Cell[66706, 1804, 346, 7, 30, "Output",ExpressionUUID->"f109a491-e766-4dd6-926d-59fdffd27c34"]
}, Open  ]],
Cell[67067, 1814, 299, 8, 26, "Input",ExpressionUUID->"c210cd7e-010c-40fc-a951-84698240cb5d"],
Cell[CellGroupData[{
Cell[67391, 1826, 6397, 190, 117, "Input",ExpressionUUID->"ce28e626-e8f5-4dc3-9758-62b8ec585e95"],
Cell[73791, 2018, 1574, 48, 30, "Output",ExpressionUUID->"100f0796-b071-4589-a130-11bc2f914739"],
Cell[75368, 2068, 1574, 48, 30, "Output",ExpressionUUID->"f52adc0d-14fe-4fbe-bf8a-86b43e8eeddc"],
Cell[76945, 2118, 1576, 48, 30, "Output",ExpressionUUID->"c27b3d6d-1c20-4cc2-86ff-ce7774ba74be"],
Cell[78524, 2168, 1576, 48, 30, "Output",ExpressionUUID->"a05d39eb-b669-4579-9b85-cd8d51841f3f"],
Cell[80103, 2218, 1574, 48, 30, "Output",ExpressionUUID->"7e13ca98-af38-4790-9a05-ed73c14b3981"],
Cell[81680, 2268, 1574, 48, 30, "Output",ExpressionUUID->"2e1dc805-3389-4c9b-a073-1c2f7ab02960"]
}, Open  ]],
Cell[CellGroupData[{
Cell[83291, 2321, 610, 15, 26, "Input",ExpressionUUID->"7b71eb06-5888-44b3-a1b4-e4142cc005d0"],
Cell[83904, 2338, 877, 16, 24, "Message",ExpressionUUID->"2b459dba-6e2c-430d-8dda-ef50bb234ab9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[84818, 2359, 179, 3, 26, "Input",ExpressionUUID->"2735a55c-1d70-48c0-809d-3a130ef93c86"],
Cell[85000, 2364, 250, 4, 30, "Output",ExpressionUUID->"e40e5a9c-c10b-40ab-ae62-5df76c472056"]
}, Open  ]],
Cell[CellGroupData[{
Cell[85287, 2373, 181, 3, 26, "Input",ExpressionUUID->"9ddebc71-548f-4c9d-acf3-b6b1e6f03141"],
Cell[85471, 2378, 324, 5, 30, "Output",ExpressionUUID->"dbca1750-6350-415c-924f-001415bc6a04"]
}, Open  ]],
Cell[CellGroupData[{
Cell[85832, 2388, 181, 3, 26, "Input",ExpressionUUID->"2251e5b3-5e1d-4ec3-b517-923d5368bc97"],
Cell[86016, 2393, 280, 5, 30, "Output",ExpressionUUID->"0dcb96e5-d06f-4ba5-981f-b1c94335b966"]
}, Open  ]],
Cell[CellGroupData[{
Cell[86333, 2403, 182, 3, 26, "Input",ExpressionUUID->"f3cab5c5-f175-4f91-b37b-3c68c1273ba8"],
Cell[86518, 2408, 279, 5, 30, "Output",ExpressionUUID->"7884c3e8-62d6-4c58-8b5b-95e5f7a426a6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[86834, 2418, 388, 10, 26, "Input",ExpressionUUID->"f914373f-cfa5-4d98-be51-509e5e265fc4"],
Cell[87225, 2430, 413, 9, 30, "Output",ExpressionUUID->"1086d40a-1f71-460c-8c37-4f34aae7dfd4"]
}, Open  ]]
}
]
*)

